home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / 3dpp / 3dp1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1995-05-01  |  8.2 KB  |  290 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00FFFFFF&
  4.    Caption         =   "Panel Button Demo"
  5.    ClientHeight    =   4020
  6.    ClientLeft      =   2130
  7.    ClientTop       =   1485
  8.    ClientWidth     =   4605
  9.    ForeColor       =   &H000000FF&
  10.    Height          =   4425
  11.    Left            =   2070
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   4020
  14.    ScaleWidth      =   4605
  15.    Top             =   1140
  16.    Width           =   4725
  17.    Begin SSPanel Panel3D1 
  18.       BackColor       =   &H00C0C0C0&
  19.       BevelWidth      =   2
  20.       Caption         =   "JWPC '95"
  21.       Font3D          =   2  'Raised w/heavy shading
  22.       ForeColor       =   &H000000FF&
  23.       Height          =   435
  24.       Left            =   1380
  25.       Outline         =   -1  'True
  26.       RoundedCorners  =   0   'False
  27.       TabIndex        =   9
  28.       Top             =   3000
  29.       Width           =   1275
  30.    End
  31.    Begin SSPanel pd 
  32.       BackColor       =   &H00C0C0C0&
  33.       BevelOuter      =   1  'Inset
  34.       BevelWidth      =   2
  35.       Font3D          =   0  'None
  36.       ForeColor       =   &H00000000&
  37.       Height          =   495
  38.       Left            =   3360
  39.       Outline         =   -1  'True
  40.       RoundedCorners  =   0   'False
  41.       TabIndex        =   8
  42.       Top             =   1920
  43.       Visible         =   0   'False
  44.       Width           =   495
  45.       Begin Image Image2 
  46.          Height          =   180
  47.          Left            =   120
  48.          Picture         =   3DP1.FRX:0000
  49.          Top             =   180
  50.          Width           =   180
  51.       End
  52.    End
  53.    Begin SSPanel pu 
  54.       BackColor       =   &H00C0C0C0&
  55.       BevelWidth      =   2
  56.       Font3D          =   0  'None
  57.       ForeColor       =   &H00000000&
  58.       Height          =   495
  59.       Left            =   3360
  60.       Outline         =   -1  'True
  61.       RoundedCorners  =   0   'False
  62.       TabIndex        =   7
  63.       Top             =   1920
  64.       Width           =   495
  65.       Begin Image Image1 
  66.          Height          =   225
  67.          Left            =   120
  68.          Picture         =   3DP1.FRX:011A
  69.          Top             =   120
  70.          Width           =   225
  71.       End
  72.    End
  73.    Begin SSPanel bd 
  74.       BackColor       =   &H00C0C0C0&
  75.       BevelOuter      =   1  'Inset
  76.       BevelWidth      =   2
  77.       Font3D          =   0  'None
  78.       ForeColor       =   &H00000000&
  79.       Height          =   435
  80.       Left            =   2280
  81.       Outline         =   -1  'True
  82.       RoundedCorners  =   0   'False
  83.       TabIndex        =   6
  84.       Top             =   1080
  85.       Visible         =   0   'False
  86.       Width           =   435
  87.    End
  88.    Begin SSPanel ad 
  89.       BackColor       =   &H00C0C0C0&
  90.       BevelOuter      =   1  'Inset
  91.       BevelWidth      =   2
  92.       Font3D          =   0  'None
  93.       ForeColor       =   &H00000000&
  94.       Height          =   435
  95.       Left            =   2280
  96.       Outline         =   -1  'True
  97.       RoundedCorners  =   0   'False
  98.       TabIndex        =   4
  99.       Top             =   660
  100.       Visible         =   0   'False
  101.       Width           =   435
  102.       Begin SSPanel Panel3D4 
  103.          BackColor       =   &H00C0C0C0&
  104.          BevelOuter      =   1  'Inset
  105.          BevelWidth      =   2
  106.          Caption         =   "Panel3D4"
  107.          Font3D          =   0  'None
  108.          ForeColor       =   &H00000000&
  109.          Height          =   375
  110.          Left            =   120
  111.          Outline         =   -1  'True
  112.          RoundedCorners  =   0   'False
  113.          TabIndex        =   5
  114.          Top             =   420
  115.          Width           =   315
  116.       End
  117.    End
  118.    Begin SSPanel bu 
  119.       BackColor       =   &H00C0C0C0&
  120.       BevelWidth      =   2
  121.       Font3D          =   0  'None
  122.       ForeColor       =   &H00000000&
  123.       Height          =   435
  124.       Left            =   2280
  125.       Outline         =   -1  'True
  126.       RoundedCorners  =   0   'False
  127.       TabIndex        =   3
  128.       Top             =   1080
  129.       Width           =   435
  130.    End
  131.    Begin SSPanel au 
  132.       BackColor       =   &H00C0C0C0&
  133.       BevelWidth      =   2
  134.       Font3D          =   0  'None
  135.       ForeColor       =   &H00000000&
  136.       Height          =   435
  137.       Left            =   2280
  138.       Outline         =   -1  'True
  139.       RoundedCorners  =   0   'False
  140.       TabIndex        =   2
  141.       Top             =   660
  142.       Width           =   435
  143.    End
  144.    Begin Timer Timer1 
  145.       Enabled         =   0   'False
  146.       Interval        =   800
  147.       Left            =   1560
  148.       Top             =   3360
  149.    End
  150.    Begin SSPanel up 
  151.       BackColor       =   &H00C0C0C0&
  152.       BevelWidth      =   2
  153.       Caption         =   "Ok"
  154.       Font3D          =   0  'None
  155.       ForeColor       =   &H00000000&
  156.       Height          =   375
  157.       Left            =   180
  158.       Outline         =   -1  'True
  159.       RoundedCorners  =   0   'False
  160.       TabIndex        =   1
  161.       Top             =   1740
  162.       Width           =   915
  163.    End
  164.    Begin SSPanel down 
  165.       BackColor       =   &H00C0C0C0&
  166.       BevelOuter      =   1  'Inset
  167.       BevelWidth      =   2
  168.       Caption         =   "Ok"
  169.       Font3D          =   0  'None
  170.       Height          =   375
  171.       Left            =   180
  172.       Outline         =   -1  'True
  173.       RoundedCorners  =   0   'False
  174.       TabIndex        =   0
  175.       Top             =   1740
  176.       Visible         =   0   'False
  177.       Width           =   915
  178.    End
  179.    Begin Line Line9 
  180.       BorderColor     =   &H00008000&
  181.       X1              =   1380
  182.       X2              =   3180
  183.       Y1              =   60
  184.       Y2              =   3840
  185.    End
  186.    Begin Line Line8 
  187.       BorderColor     =   &H00008000&
  188.       X1              =   60
  189.       X2              =   4500
  190.       Y1              =   3000
  191.       Y2              =   1260
  192.    End
  193.    Begin Line Line7 
  194.       BorderColor     =   &H0000FFFF&
  195.       X1              =   1080
  196.       X2              =   3480
  197.       Y1              =   60
  198.       Y2              =   3840
  199.    End
  200.    Begin Line Line6 
  201.       BorderColor     =   &H0000FFFF&
  202.       X1              =   60
  203.       X2              =   4500
  204.       Y1              =   3240
  205.       Y2              =   1020
  206.    End
  207.    Begin Line Line5 
  208.       BorderColor     =   &H000000FF&
  209.       X1              =   720
  210.       X2              =   3840
  211.       Y1              =   60
  212.       Y2              =   3900
  213.    End
  214.    Begin Line Line4 
  215.       BorderColor     =   &H000000FF&
  216.       X1              =   60
  217.       X2              =   4500
  218.       Y1              =   3480
  219.       Y2              =   660
  220.    End
  221.    Begin Line Line3 
  222.       Index           =   1
  223.       X1              =   420
  224.       X2              =   4200
  225.       Y1              =   60
  226.       Y2              =   3900
  227.    End
  228.    Begin Line Line3 
  229.       Index           =   0
  230.       X1              =   60
  231.       X2              =   4560
  232.       Y1              =   3720
  233.       Y2              =   360
  234.    End
  235.    Begin Line Line2 
  236.       BorderColor     =   &H00FF0000&
  237.       X1              =   60
  238.       X2              =   4500
  239.       Y1              =   3960
  240.       Y2              =   60
  241.    End
  242.    Begin Line Line1 
  243.       BorderColor     =   &H00FF0000&
  244.       X1              =   120
  245.       X2              =   4500
  246.       Y1              =   60
  247.       Y2              =   3960
  248.    End
  249. Sub ad_Click ()
  250. form1.BackColor = QBColor(15)
  251. ad.Visible = False
  252. au.Visible = True
  253. End Sub
  254. Sub au_Click ()
  255. au.Visible = False
  256. ad.Visible = True
  257. End Sub
  258. Sub bd_Click ()
  259. form1.BackColor = QBColor(0)
  260. bd.Visible = False
  261. bu.Visible = True
  262. End Sub
  263. Sub bu_Click ()
  264. bu.Visible = False
  265. bd.Visible = True
  266. End Sub
  267. Sub down_Click ()
  268. down.Visible = False
  269. up.Visible = True
  270. End Sub
  271. Sub Panel3D1_Click ()
  272. MsgBox "Copyright (C) 1994 JWPc '95, inc.  EMAIL US FOR QUESTIONS ON HOW TO ON WAOL.EXE at...   JwpcEMAIL    Thanks!", 48, "JWPC 1995, inc."
  273. End Sub
  274. Sub pd_Click ()
  275. pd.Visible = False
  276. pu.Visible = True
  277. End Sub
  278. Sub pu_Click ()
  279. pu.Visible = False
  280. pd.Visible = True
  281. End Sub
  282. Sub up_Click ()
  283. If down.Visible = True Then
  284. down.Visible = False
  285. up.Visible = True
  286. down.Visible = True
  287. up.Visible = False
  288. End If
  289. End Sub
  290.